Запись и считывание блока Program: на всю память со снятием ограничения, картинкой, стеком
автостартом и выходом

God Mode:

New File [Фантастический Program-65533.tzx]	; Создать новую виртуальную кассету для записи данных
Open File [Логотип КС3-1998.scr]
Cassette Recorder [Record]		; Включить виртуальный магнитофон на запись, открыв телепортационное окно 1232 поставив команду LD H, H
Debugger 				; Открыть отладчик для ввода данных
Dec					; Переключить отображение чисел в десятичный режим
Go To 23613				; Переместиться по памяти на нужный адрес

23610 <-- 255				; Подготовить код вывода сообщения 0 OK для красоты
23611 <-- 128				; Отогнать программу проверки синтаксиса
23613 <-- 65364				; Установить накладку на вершину SP-столбика для корректного возврата в BASIC
23618 <-- 0 0 0				; Запустить со строки 0 оператора 0

23627 <-- 23785				; Сместить область переменных за конец BASIC программы
23641 <-- 23786 23786 23786		; Сместить буфер вводимой строки за конец переменных
23649 <-- 23788 23788 23788		; Сместить рабочие области за конец вводимой строки

23755 <-- 0 0 26 0 245 173 167 42 167 59 221 188
23767 <-- 167 59 34 117 32 66 117 109 97 101 109
23778 <-- 32 114 97 112 98 34 13 128 13 128

40000 <-- 118 59 59 209 253 203 2 134 33 21 0 25
40012 <-- 235 1 28 0 205 60 32 195 118 27
40022 <-- 22 11 5 19 1 16 2
40029 <-- B ukapycax cmoum BOHb

65358 <-- 1343 2053 40000 4867

; Запись блока с автосбросом

23396 <-- 23755 0			; Стартовый адрес для блока данных и сброс после записи
23400 <-- 0				; Тип блока Program:
23401 <-- XXXLPA3MEP			; Имя заголовка
23411 <-- 65533 0 65533			; Длина всей области Prog без маркера 128, строка автостарта, длина чистого BASIC с ENTERами

IX <-- 23400				; Указать место размещения шаблона заголовка
SP <-- 23396				; Создать временную SP-башенку в любом свободном месте
PC <-- 2436				; Установить Стрелочку на запускаемую подпрограмму
Trace					; Выйти из отладчика и запустить программу
Cassette Recorder [Stop]		; Остановить магнитофон и закрыть телепортационное окно в адресе 1232 вернув команду EX AF, AF'

; Запуск фантастического блока

Debugger 				; Открыть отладчик для ввода данных
Add Breakpoints 2050, 2091, 2185	; Оптом поставить точки прерывания на нужный адрес
Trace					; Выйти из отладчика и запустить программу

BASIC <-- LOAD ""ENTER			; Выполнить BASIC фрагмент натуральным способом
Cassette Recorder [Play]		; Включить магнитофон на воспроизведение

PC <-- 2094				; Установить Стрелочку на запускаемую подпрограмму
Trace					; Запустить программу до следующей точки прерывания
Step Into				; Выполнить одну команду не выходя из отладчика
PC <-- 5722				; Установить Стрелочку на запускаемую подпрограмму
Trace					; Запустить программу до следующей точки прерывания
Step Into				; Выполнить одну команду не выходя из отладчика
Step Into				; Выполнить одну команду не выходя из отладчика
AF <-- AF-32				; Убрать галочку Z
Remove Breakpoints 2050, 2091, 2185	; Убрать указанные точки прерывания
Trace					; Окончательно запустить программу
